home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
gfx
/
misc
/
SvII-1.lha
/
SViewII
/
ARexx-Scripts
/
SetSVOperator.rx
< prev
next >
Wrap
Text File
|
1999-02-20
|
969b
|
54 lines
/*
$VER: SetSVOperator.rx V8.00 (22.7.98)
© 1993-98 by Andreas R. Kleinert
This script demonstrates how to modify the default SVOperator
settings without using the GUI, but SViewII's ARexxPort.
The resulting changes will also appear on SViewII's GUI,
if already open.
*/
address command
SViewII "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
say ""
say "ARexx: SViewII has been started : Waiting a moment..."
wait 5
OPTIONS RESULTS
SIGNAL ON ERROR
SVIIPORT = 'SViewII.rx'
SVNGPORT = 'SViewNG.rx'
SVPORT = 'SuperView.rx'
IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
IF ~SHOW('P',SVPORT) THEN DO
say "Could not locate ARexx port of SViewII !"
CALL ErrorOut 0
END
ADDRESS VALUE SVPORT
'SVOPERATOR=HilbertDither256'
address command wait 5
'SVOPERATOR=XOR'
CALL ErrorOut 0
/* Errorout procedure ----------------------- */
ErrorOut:
PARSE ARG ExitCode
EXIT ExitCode
END